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EDTSMCTOP = move cursor to top of file 15-50 Sep-1984 VAX-11 Bliss-32 V Page 1 
? ~3een13Be F3:5G:8 | Bek imGmaSfeRc ceo secSmcrop.eui;1 2% ¢1} 

: 1 1 HS | "EDTSMCTOP = move cursor to top of file’ 
3 § § MODULE EDTSMCTOP ( ! Move cursor to top of file 
; Z poent = *v04-000' ! File: MCTOP. °BLI Edit: JBS1003 
3 = 
; 5 5 : BEGIN 
: ? $ : WITITILILILI LILI LLL LLL LLL LLL LLL LLL TLL TLL iL liT iit iii 
8 'e * 
3 y 808 1 !e coere tent (c) 1978, 1980, 1982, 1984 B * 
; 10 10 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
; 1 : ; is ALL RIGHTS” RESERVED. * 
Py H ® 
3 ig ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copied * 
3; % 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 15 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 18 B018 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
- | 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
P4 + dt : i. TRANSFERRED. * 
; 4 * 
3 0 0020 1 !# ie INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ; 8 ¢ : :* CORPORATION. : 
3 e 
3 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
P4 5 + 5 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: $6 00 5 1 is . 
3 28 89 ' See EE AAA AAAAEAAAAAAAAAAAAEEAERERAAAAA AERA RAAAAAAAAARAAAAERAAAAAARR Ee 
3 a ! 
ci ae 
; é 0052 t FACILITY: EDT =~ The DEC Standard Editor 
; 4 0034 i ABSTRACT: 
; i B86 : Move cursor to top of file. 
: Hs 0038 : ENVIRONMENT: Runs at any access mode - AST reentrant 
: re B46 : AUTHOR: Bob Kushlis, CREATION DATE: September 9, 1979 
: 4 0042 1 ! MODIFIED BY: 
3 4 4 1! 
; «44 0044 1 ! 1-001 - Original. DJS 19-FE bok This module was created by 
; 645 045 1! extracti ng routine EDTS$$CS_ TOP from module MOVCUR. 
:; 646 Bose . f 1-005 = Regularize headers. JBS~11-Mar-1981 
: if 984 : 1-005 = Remove EDT$$G_LN_NO for new screen update logic. JBS 29-Sep-1982 
: 49 0049 1— 
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EDTSMCTOP - rsor to top of fil 18- 1984 01:12: VAX=11 BLi 4 .0-74 
ee Tie eee 12-808- 1382 95:56 :0 Bee teacchot secimcrop.eui;1 2% cas 


declarations ~Sep- DISKSVMSMASTER:C (25 
SSBTTL ‘Declarations’ 
9 TABLE OF CONTENTS: 
054 ‘ 
035 REQUIRE 'EDTSRC:TRAROUNAM'; 
95 1 FORWARD ROUTINE 
36 EDT$$CS_TOP : NOVALUE; 
9 
98 ' 
i INCLUDE FILES: 
00 i 
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REQUIRE ‘EDTSRC:EDTREQ'; 
' 


MACROS: 

NONE 

EQUATED SYMBOLS: 

NONE 

! OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 
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EDTSMCTOP = move cursor to top of file 16-Sep-1984 01:12: VAX-11 Bliss-32 V4.0-74 Page 3 
EDTSSCS_TOP = move cursor te tes of file 12-88-1882 93:3¢:9) DISKSVMSMASTER: CEDT.SRCJMCTOP.BLI;1 . (3) 
6 $ } ZSBTTL "EDTSS$CS_TOP = move cursor to top of file’ 
6 § 1 GLOBAL ROUTINE EDTS$SCS_TOP ! Move cursor to top of file 
6 1 : NOVALUE = 
6 8 1 
1 tee 
ree ! FUNCTIONAL DESCRIPTION: 
Dee : This routine moves the cursor to the top of the current buffer. 
ee) : FORMAL PARAMETERS: 
Sd ne 
0668 1 ! IMPLICIT INPUTS: 
0669 1! 
Be 01! NONE 
671 1! 
Bere 1 ! IMPLICIT OUTPUTS: 
0673 1! 
0674 1! NONE 
0675 1! 
0676 1 ! ROUTINE VALUE: 
0677 1! 
pore 1! NONE 
0679 1! 
eet 1 ! SIDE EFFECTS: 
81 1! 
beng 1! NONE 
0683 1! 
0684 1 lee 
0685 1 
068 BEGIN 
068 
0688 EXTERNAL ROUTINE 
0689 EDTSSGET_TXTLN : NOVALUE, 
0690 EDTSS$TOP_BUF ; 
0691 
069 '¢ 
R037 : Go to the top and get the new Line. 
0695 EDTSSTOP_BUF (); 
069 EDT$SGET-TXTLN (); 
69 END; ! of routine EDTS$CS_TOP | 


-TITLE EDTSMCTOP EDTSMCTOP - move cursor to top of fil 
LIDENT \V04-000\ © 

-EXTRN EDTSSGET_TXTLN, EDTSSTOP_BUF 

-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0000 00000 ENTRY EDTSSCS_TOP, Save nothing : 0656 
00000006 99 0 FB 9008 CALLS i. EDTS$TOP_BUF ; 0695 
00000006 0 FB 0000 CALLS #0, EDTSSGETTXTLN > 0696 


vee ae EBTESCS TOP no ’foGe sursee torton oF file 1$-te 30071 3RC 93:39:8) | Wd wGmaSteRsceot sacimcrop.aui:1 2% «3 
04 00010 RET ; 0697 
; Routine Size: 17 bytes, Routine Base: _EDTSCODE + 0000 
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Name 
-EDTSCODE 


File 


-$255$DUA28: 
7$255$DUA28: 


a 
ieseed: tee: 
Lines/CPU Min: 


CEI 


TSMCTOP = move cursor to top of fil 
13% OP = move cursor to top of file 


PSECT SUMMARY 
Bytes 
17 NOVEC,NOWRT, 


Library Statistics 


cocecece Symbols 
Loaded 


Total 
377 
2 


COMMAND QUALIFIERS 


17 code. + ° data bytes 
00:11 18:5 


990 
Lexemes/CPU-Min: 13339 


ponety Used: 
Compila 


49 pages 
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19° Sep- VAX-11 Bliss-32 
1 ~8ep- 


1986 93:28:8) 


! of module EDTSMCTOP 


Attributes 


EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Pages Processing 


Mapped Time 


0 40 00:00. 
50 ? 00:00.1 


Percent 
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sees 
SRCJMCTOP.BLI;1 (4) 
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